From: Glenn Morris <rgm@gnu.org>
Date: Sun, 26 Jun 2011 01:37:36 +0000 (-0700)
Subject: * lisp/progmodes/f90.el (f90-looking-at-critical): Doc fix.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~844^2~845^2~399
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ee584d02ddc4d944a9055681eda52dc1d197bba0;p=emacs.git

* lisp/progmodes/f90.el (f90-looking-at-critical): Doc fix.
---

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index db292c2452b..cdb5f2a715d 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -1262,7 +1262,7 @@ NAME is nil if the statement has no label."
       (list (match-string 1))))
 
 (defsubst f90-looking-at-critical ()
-  "Return (KIND) if a critical or block block starts after point."
+  "Return (KIND NAME) if a critical or block block starts after point."
   (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(critical\\|block\\)\\>")
       (let ((struct (match-string 3))
             (label (match-string 2)))